home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 1 / Eagles_Nest_Mac_Collection_Disc_1.TOAST / Special Hardware / MacRIP101 / macrip / Sample PS Files / MacRIP full circle sample next >
Text File  |  1989-11-02  |  877b  |  44 lines
  1. /Q {7.2 mul} def
  2.  
  3. /rotangle 245 def
  4. /rotoffset -22.5 def
  5. /graylevel .9 def
  6.  
  7. /logosetup
  8.     { /Helvetica findfont
  9.        [36 0 0 36 0 0] makefont setfont
  10.      } def
  11.  
  12. /point {200 600 moveto} def        % start point for show
  13.  
  14. /rotationloop
  15.       {gsave
  16.         point
  17.         rotangle rotate            % rotate the whole page by rotangle
  18.         graylevel setgray
  19.          (MacRIP) show
  20.           currentpoint translate
  21.  
  22.         /rotangle rotangle        % change the rotation angle
  23.                rotoffset sub def          % for the next time through
  24.                         % the loop
  25.  
  26.          /graylevel graylevel        % make it a little darker
  27.                 .10 sub def              % next time
  28.          grestore} def
  29.  
  30. /logorot
  31.          {gsave
  32.             20 Q  30 Q  translate    % move user origin to (20,30)
  33.             logosetup
  34.  
  35.             0.75 0.75 scale        % scale everything a litle smaller
  36.  
  37.             20  {rotationloop} repeat
  38.  
  39.             grestore} def
  40.  
  41. logorot
  42. showpage
  43.  
  44.